home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_134784.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  4.1 KB  |  238 lines
  1. -- card: 134784 from stack: in
  2. -- bmap block id: 135279
  3. -- flags: 4000
  4. -- background id: 14625
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on doMenu menuItem
  8.   if menuItem is "Clear" then
  9.     put empty into card field "Class 2"
  10.   else pass doMenu
  11. end doMenu
  12.  
  13. on resetCard
  14.   put empty into card field "Class 1"
  15.   put "T/R" into card field "Class 2"
  16.   hide card button "Hilite"
  17. end resetCard
  18.  
  19.  
  20. -- part 1 (button)
  21. -- low flags: 00
  22. -- high flags: 0000
  23. -- rect: left=0 top=0 right=342 bottom=512
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: 
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=11 top=33 right=48 bottom=26
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 5068 / 5068
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Close
  46. ----- HyperTalk script -----
  47. on mouseDown
  48.   set icon of me to "Close Box Hi"
  49. end mouseDown
  50.  
  51. on mouseLeave
  52.   set icon of me to "Close Box"
  53. end mouseLeave
  54.  
  55. on mouseUp
  56.   set icon of me to "Close Box"
  57.   lock screen
  58.   resetCard
  59.   pop card
  60.   unlock screen
  61. end mouseUp
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=4 top=315 right=334 bottom=23
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Legend
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   --get the rect of me
  79.   --put the clickH - item 1 of the rect of me into x
  80.   --put the clickV - item 2 of the rect of me into y
  81.   --if x < y then
  82.   lock screen
  83.   resetCard
  84.   go to card "Legend" of this background
  85.   unlock screen
  86.   --end if
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 4 (field)
  92. -- low flags: 01
  93. -- high flags: 0000
  94. -- rect: left=206 top=203 right=215 bottom=271
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 3
  99. -- text size: 9
  100. -- style flags: 0
  101. -- line height: 12
  102. -- part name: Class 1
  103.  
  104.  
  105. -- part 5 (field)
  106. -- low flags: 01
  107. -- high flags: 0000
  108. -- rect: left=206 top=239 right=251 bottom=271
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 0
  112. -- font id: 3
  113. -- text size: 9
  114. -- style flags: 0
  115. -- line height: 12
  116. -- part name: Class 2
  117.  
  118.  
  119. -- part 6 (button)
  120. -- low flags: 80
  121. -- high flags: 4000
  122. -- rect: left=207 top=204 right=215 bottom=292
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Hilite
  131.  
  132.  
  133. -- part 7 (button)
  134. -- low flags: 00
  135. -- high flags: 0000
  136. -- rect: left=35 top=192 right=287 bottom=464
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: 
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   put trunc((the clickH-34)/86) * 86 + 77 into item 1 of buttonLoc
  148.   put trunc((the clickV-191)/12) * 12 + 197 into item 2 of buttonLoc
  149.   if the loc of card button "Hilite" is buttonLoc AND visible of card button "Hilite" then
  150.     show card button "Hilite" at buttonLoc
  151.     put "T/R" into card field "Class 1"
  152.   else show card button "Hilite" at buttonLoc
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part contents for background part 19
  158. ----- text -----
  159. 12
  160. 12
  161. 12
  162. 12
  163. 12
  164. 11
  165. 12
  166. 12
  167.  
  168. -- part contents for background part 20
  169. ----- text -----
  170. 47
  171. 80
  172. 53
  173. 54
  174. 52
  175. 102
  176. 48
  177. 13
  178.  
  179. -- part contents for background part 21
  180. ----- text -----
  181. Abrosimoff, Michael John
  182. Adams, Bryan
  183. Alexander, Rick
  184.  Alexander, Susan
  185. Allsop, Blair M.
  186. Azimov, Isaac
  187.  Barisoff, Larissa
  188. Bunyan, Paul
  189.  
  190.  
  191.  
  192. -- part contents for background part 22
  193. ----- text -----
  194. Industrial
  195. Academic
  196. Academic
  197. Academic
  198. Academic
  199. Academic
  200. Academic
  201. Commercial
  202.  
  203. -- part contents for background part 23
  204. ----- text -----
  205. 0.0
  206. 0.0
  207. 0.0
  208. 0.0
  209. 0.0
  210. 0.0
  211. 0.0
  212. 0.0
  213.  
  214. -- part contents for background part 24
  215. ----- text -----
  216. 0.0
  217. 0.0
  218. 0.0
  219. 0.0
  220. 0.0
  221. 0.0
  222. 0.0
  223. 0.0
  224.  
  225. -- part contents for background part 25
  226. ----- text -----
  227. 12.0
  228. 12.0
  229. 12.0
  230. 12.0
  231. 12.0
  232. 12.0
  233. 12.0
  234. 12.0
  235.  
  236. -- part contents for card part 5
  237. ----- text -----
  238. T/R